********************************************************************************
*** Paper: FINANCIAL PERFORMANCE OF STATE-OWNED ENTERPRISES: DOES POLITICAL IDEOLOGY PLAY A ROLE?
*** JPART
*** Note that some variables are in Portuguese
*** Figures and Tables of the manuscript (except the Appendix)
********************************************************************************



**************************************
*** Please, first load the dataset ***
**************************************

xtset id ano 


**************************************
***            Figures             ***
**************************************


* Figure 1

bysort id: gen numb = _n

tab uf if num==1

drop num



* Figure 2

xtgls resul_pre_subven c.ideo##non_policy sem bolsa PL nondep liquida aud qde_empregados primário_rcl perc_rec_prop_UF idh pop setor_fe2-setor_fe18 ano_fe2-ano_fe5, panels(h)
global ideo_a = 8.11
global ideo_m = 6.08
global ideo_b = 4.05
margins, at(non_policy=(0 1) ideo=($ideo_a $ideo_m $ideo_b))
marginsplot, legend(col(1)) ytitle(Predicted PBS) xtitle(Non-Policy) graphregion(fcolor(white)) plotregion(lcolor(white)) noci




**************************************
***             Tables             ***
**************************************

* Table 1

tab setor_num if (resul_pre_subven != . & PL != . & sem != . & aud != . & qde_empregados != .)


* Table 3

pwcorr resul_pre_subven ideo non_policy sem bolsa PL nondep liquida aud qde_empregados primário_rcl perc_rec_prop_UF idh pop if (resul_pre_subven != . & PL != . & sem != . & aud != . & qde_empregados != .)

sum resul_pre_subven ideo non_policy sem bolsa PL nondep liquida aud qde_empregados primário_rcl perc_rec_prop_UF idh pop if (resul_pre_subven != . & PL != . & sem != . & aud != . & qde_empregados != .)


* Table 4

tab ideo non_policy if (resul_pre_subven != . & PL != . & sem != . & aud != . & qde_empregados != .)


* Table 5

xtgls resul_pre_subven ideo non_policy sem bolsa PL nondep liquida aud qde_empregados primário_rcl perc_rec_prop_UF idh pop setor_fe2-setor_fe18 ano_fe2-ano_fe5, panels(h)
outreg2 using Table_5.doc, stats(coef pval) replace ctitle(Model 1) label dec(3) drop(setor_fe* ano_fe*)

xtgls resul_pre_subven left non_policy sem bolsa PL nondep liquida aud qde_empregados primário_rcl perc_rec_prop_UF idh pop setor_fe2-setor_fe18 ano_fe2-ano_fe5, panels(h)
outreg2 using Table_5.doc, stats(coef pval) append ctitle(Model 2) label dec(3) drop(setor_fe* ano_fe*)

xtgls resul_pre_subven right non_policy sem bolsa PL nondep liquida aud qde_empregados primário_rcl perc_rec_prop_UF idh pop setor_fe2-setor_fe18 ano_fe2-ano_fe5, panels(h)
outreg2 using Table_5.doc, stats(coef pval) append ctitle(Model 3) label dec(3) drop(setor_fe* ano_fe*)

xtgls resul_pre_subven c.ideo##non_policy sem bolsa PL nondep liquida aud qde_empregados primário_rcl perc_rec_prop_UF idh pop setor_fe2-setor_fe18 ano_fe2-ano_fe5, panels(h)
outreg2 using Table_5.doc, stats(coef pval) append ctitle(Model 4) label dec(3) drop(setor_fe* ano_fe*)

xtgls resul_pre_subven c.ideo##non_policy sem bolsa PL nondep liquida aud qde_empregados primário_rcl perc_rec_prop_UF idh pop setor_fe2-setor_fe18 ano_fe2-ano_fe5, panels(h) corr(psar1)
outreg2 using Table_5.doc, stats(coef pval) append ctitle(Model 5) label dec(3) drop(setor_fe* ano_fe*)

xtgls winsor_dv c.ideo##non_policy sem bolsa PL nondep liquida aud qde_empregados primário_rcl perc_rec_prop_UF idh pop setor_fe2-setor_fe18 ano_fe2-ano_fe5, panels(h)
outreg2 using Table_5.doc, stats(coef pval) append ctitle(Model 6) label dec(3) drop(setor_fe* ano_fe*)

xtgls resul_pre_subven c.ideo##non_policy sem bolsa PL nondep liquida aud qde_empregados primário_rcl perc_rec_prop_UF idh pop setor_fe2-setor_fe18 ano_fe2-ano_fe5 if (PL > 0 & liquida == 0), panels(h)
outreg2 using Table_5.doc, stats(coef pval) append ctitle(Model 7) label dec(3) drop(setor_fe* ano_fe*)



* Table 6

xtgls roe_new c.ideo non_policy sem bolsa PL nondep liquida aud qde_empregados primário_rcl perc_rec_prop_UF idh pop setor_fe2-setor_fe18 ano_fe2-ano_fe5, panels(h)
outreg2 using Table_6.doc, stats(coef pval) replace ctitle(Model 1) label dec(3) drop(setor_fe* ano_fe*) noaster

xtgls roe_new c.ideo##non_policy sem bolsa PL nondep liquida aud qde_empregados primário_rcl perc_rec_prop_UF idh pop setor_fe2-setor_fe18 ano_fe2-ano_fe5, panels(h)
outreg2 using Table_6.doc, stats(coef pval) append ctitle(Model 2) label dec(3) drop(setor_fe* ano_fe*) noaster

xtgls rocc_new c.ideo non_policy sem bolsa PL nondep liquida aud qde_empregados primário_rcl perc_rec_prop_UF idh pop setor_fe2-setor_fe18 ano_fe2-ano_fe5, panels(h)
outreg2 using Table_6.doc, stats(coef pval) append ctitle(Model 3) label dec(3) drop(setor_fe* ano_fe*) noaster

xtgls rocc_new c.ideo##non_policy sem bolsa PL nondep liquida aud qde_empregados primário_rcl perc_rec_prop_UF idh pop setor_fe2-setor_fe18 ano_fe2-ano_fe5, panels(h)
outreg2 using Table_6.doc, stats(coef pval) append ctitle(Model 4) label dec(3) drop(setor_fe* ano_fe*) noaster



* Table 7

set seed 659535

ivregress 2sls resul_pre_subven setor_fe2-setor_fe18 (ideo = lnwealth perc_rec_prop_UF idh pop i.ano) if (resul_pre_subven != . & PL != . & sem != . & aud != . & qde_empregados != .)
estat overid
ivregress 2sls roe_new non_policy setor_fe2-setor_fe18 (ideo = lnwealth perc_rec_prop_UF idh pop i.ano) if (resul_pre_subven != . & PL != . & sem != . & aud != . & qde_empregados != .)
estat overid
ivregress 2sls rocc_new non_policy setor_fe2-setor_fe18  (ideo = lnwealth perc_rec_prop_UF idh pop i.ano) if (resul_pre_subven != . & PL != . & sem != . & aud != . & qde_empregados != .)
estat overid


ivregress liml resul_pre_subven setor_fe2-setor_fe18 (ideo = lnwealth perc_rec_prop_UF idh pop i.ano) if (resul_pre_subven != . & PL != . & sem != . & aud != . & qde_empregados != .)
estat overid
ivregress liml roe_new setor_fe2-setor_fe18 (ideo = lnwealth perc_rec_prop_UF idh pop i.ano) if (resul_pre_subven != . & PL != . & sem != . & aud != . & qde_empregados != .)
estat overid
ivregress liml rocc_new setor_fe2-setor_fe18  (ideo = lnwealth perc_rec_prop_UF idh pop i.ano) if (resul_pre_subven != . & PL != . & sem != . & aud != . & qde_empregados != .)
estat overid

